home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / STRDI.z / STRDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSTTTTRRRRDDDDIIII((((3333FFFF))))                                                            SSSSTTTTRRRRDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      STRDI   - STRDI computes the determinant and inverse of a real triangular
  10.      matrix.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE STRDI(T,LDT,N,DET,JOB,INFO)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      TTTT REAL(LDT,N)
  20.         T contains the triangular matrix.  The zero
  21.         elements of the matrix are not referenced, and
  22.         the corresponding elements of the array can be
  23.         used to store other information.
  24.  
  25.      LLLLDDDDTTTT INTEGER
  26.         LDT is the leading dimension of the array T.
  27.  
  28.      NNNN INTEGER
  29.         N is the order of the system.
  30.  
  31.      JJJJOOOOBBBB INTEGER
  32.         = 010       no det, inverse of lower triangular.
  33.         = 011       no det, inverse of upper triangular.
  34.         = 100       det, no inverse.
  35.         = 110       det, inverse of lower triangular.
  36.         = 111       det, inverse of upper triangular.  On Return
  37.  
  38.      TTTT inverse of original matrix if requested.
  39.         Otherwise unchanged.
  40.  
  41.      DDDDEEEETTTT REAL(2)
  42.         determinant of original matrix if requested.
  43.         Otherwise not referenced.
  44.         Determinant = DET(1) * 10.0**DET(2)
  45.         with  1.0 .LE. ABS(DET(1)) .LT. 10.0
  46.         or  DET(1) .EQ. 0.0 .
  47.  
  48.      IIIINNNNFFFFOOOO INTEGER
  49.         INFO contains zero if the system is nonsingular
  50.         and the inverse is requested.
  51.         Otherwise INFO contains the index of
  52.         a zero diagonal element of T.  LINPACK.  This version dated 08/14/78 .
  53.      Cleve Moler, University of New Mexico, Argonne National Lab.  Subroutines
  54.      and Functions BLAS SAXPY,SSCAL Fortran ABS,MOD
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.